home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mail / netmail_13.lha / NetMail / Drivers / SendMail.mailput < prev    next >
Text File  |  1995-09-30  |  770b  |  30 lines
  1. /*
  2. ** $VER: SendMail.mailput 1.2 (30.9.95)
  3. ** Copyright (c) 1995 Riccardo Solmi
  4. **
  5. */
  6.  
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 21
  9.  
  10. PARSE ARG email, host, msg
  11.  
  12. cmd = 'UUCP:c/SendMail'
  13. IF ~EXISTS(cmd) THEN DO
  14.    cmd = GetVar('NetMail/SendMailCmd')
  15.    IF cmd = 0 | ~EXISTS(cmd) THEN DO
  16.       ADDRESS COMMAND 'SetEnv NetMail/SendMailCmd `Which "SendMail"`'
  17.       cmd = GetVar('NetMail/SendMailCmd')
  18.       IF cmd = 0 THEN DO
  19.          ADDRESS COMMAND 'SetEnv NetMail/SendMailCmd `RequestFile Title "Select SendMail command" Noicons`'
  20.          cmd = GetVar('NetMail/SendMailCmd')
  21.          IF cmd = 0 | ~EXISTS(cmd) THEN RETURN 2
  22.          ADDRESS COMMAND 'Copy QUIET ENV:NetMail/SendMailCmd ENVARC:NetMail/SendMailCmd'
  23.       END
  24.    END
  25. END
  26.  
  27. ADDRESS COMMAND '"'cmd'" <"'msg'"'
  28.  
  29. RETURN RC
  30.